home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / pset.arc / PSET.LST < prev    next >
File List  |  1986-04-24  |  5KB  |  97 lines
  1. Microsoft (R) Macro Assembler  Version 4.00                 4/24/86 17:31:56
  2.  
  3.                                                             Page     1-1
  4.                                                             
  5.  
  6.        1                                ;PSET - Program to Send Printer Control
  7.                      Codes Entered on 
  8.        2                                ;       the command line to the default
  9.                      printer (lpt1:) 
  10.        3 0000                           CSEG    segment para public 'code' 
  11.        4                                        assume cs:CSEG, ds:CSEG, es:CSE
  12.                     G, ss:NOTHING 
  13.        5 0100                                   org 100h                       
  14.                      ;.com format 
  15.        6 0100                           PSET    proc 
  16.        7 0100  BE 0080                  BEGIN:  mov             si,80h         
  17.                      
  18.        8 0103  FC                               cld 
  19.        9 0104  AC                               lodsb 
  20.       10 0105  98                               cbw 
  21.       11 0106  8B C8                            mov             cx,ax 
  22.       12 0108  49                               dec             cx 
  23.       13 0109  03 F1                            add             si,cx 
  24.       14 010B  FD                               std 
  25.       15 010C  BA 1234                          mov             dx,1234h 
  26.       16 010F  E8 013E R                        call            MANAGER 
  27.       17 0112  AC                       LOAD:   lodsb 
  28.       18 0113  3C 20                            cmp             al,20h 
  29.       19 0115  75 05                            jne             MULT 
  30.       20 0117  E8 013E R                        call            MANAGER 
  31.       21 011A  E2 F6                            loop            LOAD 
  32.       22 011C  2C 30                    MULT:   sub             al,30h 
  33.       23 011E  F6 E3                            mul             bl 
  34.       24 0120  02 D0                            add             dl,al 
  35.       25 0122  8A C3                            mov             al,bl 
  36.       26 0124  B3 0A                            mov             bl,0ah 
  37.       27 0126  F6 E3                            mul             bl 
  38.       28 0128  8A D8                            mov             bl,al 
  39.       29 012A  E2 E6                    LOOP:   loop            LOAD 
  40.       30 012C  E8 013E R                        call            MANAGER 
  41.       31 012F  5A                       CLEAR:  pop             dx 
  42.       32 0130  81 FA 1234                       cmp             dx,1234h 
  43.       33 0134  74 06                            je              END 
  44.       34 0136  B4 05                            mov             ah,05h 
  45.       35 0138  CD 21                            int             21h 
  46.       36 013A  EB F3                            jmp             CLEAR 
  47.       37 013C  CD 20                    END:    int             20h 
  48.       38                                        PSET            endp 
  49.       39 013E                           MANAGER proc 
  50.       40 013E  5B                               pop             bx 
  51.       41 013F  52                               push            dx 
  52.       42 0140  53                               push            bx 
  53.       43 0141  B3 01                            mov             bl,1 
  54.       44 0143  33 D2                            xor             dx,dx 
  55.       45 0145  C3                               ret 
  56.       46                                        MANAGER         endp 
  57.       47 0146                                   CSEG            ends 
  58.       48                                end     BEGIN 
  59. Microsoft (R) Macro Assembler  Version 4.00                 4/24/86 17:31:56
  60.  
  61.                                                             Symbols-1
  62.                                                              
  63.  
  64. Segments and Groups:
  65.  
  66.                 N a m e             Size    Align    Combine Class
  67.  
  68. CSEG . . . . . . . . . . . . . .      0146    PARA    PUBLIC    'CODE'
  69.  
  70. Symbols:            
  71.  
  72.                 N a m e             Type    Value    Attr         
  73.  
  74. BEGIN  . . . . . . . . . . . . .      L NEAR    0100    CSEG
  75.  
  76. CLEAR  . . . . . . . . . . . . .      L NEAR    012F    CSEG
  77.  
  78. END  . . . . . . . . . . . . . .      L NEAR    013C    CSEG
  79.  
  80. LOAD . . . . . . . . . . . . . .      L NEAR    0112    CSEG
  81. LOOP . . . . . . . . . . . . . .      L NEAR    012A    CSEG
  82.  
  83. MANAGER  . . . . . . . . . . . .      N PROC    013E    CSEG    Length = 0008
  84. MULT . . . . . . . . . . . . . .      L NEAR    011C    CSEG
  85.  
  86. PSET . . . . . . . . . . . . . .      N PROC    0100    CSEG    Length = 003E
  87.  
  88.  
  89.      48 Source  Lines
  90.      48 Total   Lines
  91.      31 Symbols
  92.  
  93.   49954 Bytes symbol space free
  94.  
  95.       0 Warning Errors
  96.       0 Severe  Errors
  97.